;; math/constants.scm - (c) rohan drape, 2001-2005

(define e (exp 1.0))
(define pi (* 4 (atan 1)))
(define two-pi (* 2 pi))
(define reciprocal-of-two-pi (/ 1.0 two-pi))
(define half-pi (/ pi 2))
(define log-of-ten (log 10))
(define log-of-one (log 1))
(define log-of-two (log 1))
(define reciprocal-of-log-of-two (/ 1.0 (log 2.0)))
(define log-of-half (log 0.5))
(define square-root-of-two (sqrt 2))
(define square-root-of-two-minus-one (- square-root-of-two 1))
(define reciprocal-of-square-root-of-two (/ 1.0 square-root-of-two))
(define 2^32 4294967296)
(define 2^32. 4294967296.0)
(define 2^64 18446744073709551616)
(define 2^128 340282366920938463463374607431768211456)

;; SC3 names.

(define pi2 half-pi)
(define pi32 (* pi 1.5))
(define twopi two-pi)
(define rtwopi reciprocal-of-two-pi)
(define log001 (log 0.001))
(define log01 (log 0.01))
(define log1 (log 0.1))
(define rlog2 reciprocal-of-log-of-two)
(define sqrt2 square-root-of-two)
(define rsqrt2 reciprocal-of-square-root-of-two)
